﻿Imports System
Imports System.Windows.Forms
Imports System.Drawing
Imports Camalon.Drawing
Imports Camalon.Drawing.Samples.VB


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub



    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)

        Dim diamond As New Diamond
        Dim shapeCtrl As New ShapeControl

        ' diamond
        diamond.PaintChildsOnly = True
        diamond.Position = New Point(0, 0)

        ' shapeCtrl
        shapeCtrl.Shape = diamond
        shapeCtrl.Clip = True
        shapeCtrl.Size = diamond.Size
        shapeCtrl.Location = New Point(50, 50)

        Me.Controls.Add(shapeCtrl)

        MyBase.OnLoad(e)

    End Sub
End Class
